#!/usr/bin/perl 
$texte="";
$nbre_mots=0;
while($a=<STDIN>) 
{
  if( $a =~/STOP/) # $a eq "STOP"
  {
        @liste = split (/ /,$texte);
        
        for ($i=0; $i<=$#liste; $i++)
        {
            if ($liste[$i] ne "")
            {
                $nbre_mots=$nbre_mots+1;
            }
        }
        print $nbre_mots."\n";
        exit;
    }
   else
  { 
        $texte.=" ".$a;
    }
}
